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; FILE MESA-NOVAl.ASM 

; R. JOHNSSON 

; LAST MODIFIED August 10. 1978 9:47 AM 

.TITL MesaNoval 
.TXTM B 

.ENT EMLOOP 

.ENT MesaNoval 

.ENT MesaNovaSizel 

.ENT ACOPtr 

.ENT AClPtr 

.ENT AbsoluteTXV 

.ENT CleanUpQueueUser 

.ENT RequeueSubUser 

.ENT WakeHeadlmplementer 

.ENT STOPUser 

.ENT AdvanceTimerPtr 

.ENT processTrapPtr 

.ENT f irstProcessPtr 

.ENT 1 astProcessPtr 

.ENT f irstStateVectorPtr 

.SREL 

EMLOOP: EMLP-TXV ; WHERE TO START RUNNING 

MesaNoval: TXV 
MesaNovaSizel: END-TXV 
ACOPtr: currentState 
AClPtr: WASACl 

AbsoluteTXV: X ; To check compatibility 
CleanUpQueueUser: CleanUpQueue 
RequeueSubUser: RequeuePtr 
WakeHeadlmpl ementer : WakeHead-TXV+X 
STOPUser: pSTOP 

AdvanceTimerPtr : AdvanceTimer-TXV+X 

processTrapPtr: processTrap 

f i rstProcessPtr : firstProcess 

1 astProcessPtr : lastProcess 

f irstStateVectorPtr : f irstStateVector 

.NREL 

.GET "Mesa-NovaDef s.asm" 
X « 25 ; The absolute location of TXV at run time 



TXV: EMLP-TXV+X ; Microcode expects this to be in location 25 

MSTOP-TXV+X 
77400 : BLK 

77400 ; CONVERT 

ME-TXV+X 
MRE-TXV+X 
MXW-TXV+X 
MXD-TXV+X 
NOTIFY~TXV+X 
BCAST-TXV+X 
REQUEUE-TXV+X 

CVArray: ; This will be location 40 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



MSTOP: 



JMP @pSTOP 
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pSTOP: 0 



; Locations for saving accumulators 

WASACl: 0 

trapmask : abort Pen ding;+timeoutPencling 
processTrap: 0 

; Monitor ReEntry(@Moni tor , cvptr) 



make timeout not trap 



MRE: 

sta 
jsr 
mov 

Ida 
jsr 
Ida 
sub 
sta 
Ida 
Ida 
and^ 
jmp 
Ida 
Ida 
sta 
Ida 
sta 

Enter : 

mov 

Ida 

movzl 

movl 

movzr 

sta 

movzr 

EnterFai 1 : 
sta 
mov 
Ida 
Ida 
movl 
movor 
sta 
Ida 
jsr 
movz 
jmp 



1 cvptr 
Enter 
0 0 snc 
EMLPl 
0 cvptr 
eCleanUpQueue 

2 currentPSB 
0 

cl eanUpLink , 2 
trapmask 

bi tsandpriori ty , 2 
: if 



0 
0 
0 
1 

0 1 snr 
EnterTrue 

2 currentState 

1 dest,2 

1 source, 2 

1 eprocessTrap 

1 dest,2 



if failed 
then return 



currentPSB. cleanUpLink Clean 



EMLP 



no timeout or abort 
then return 
cause a trap in the current state 

make the dest be the source 

and cause a call to SD[sProcessTrap] 



;(@Monitor) returns carryl iff success 



0, 
0 
0 
1 
0 
0 
1 

0,3 



lockqueue, 2 

0 

1 

0 

lockqueue , 2 
1 szc 



copy pointer 
get lock and queue word 
lock bit to carry 
store carry in low-order ACl 
set lock bit to 0 « locked 
store value back 
test and remove lock bit 
done. carry=l 



assumes queue^O 



3 EXWreturn 
2 1 

2 currentPSB 
0 bitsandpriority, 2 
0 0 
0 0 

0 bitsandpriority , 2 ; set enterfailed TRUE 
0 pReadyList 

RequeueSub ; (pReadyList ,@Moni tor . queue , currentPSB) 

0 0 ; set carry=0 

©EXWreturn 



REQUEUE: ; (0f rom,@to.p) 

jsr RequeueSub 
jmp EMLPl 

TabortPending : abortPending 
ReSchedul ePending : 0 
clStateVector : IStateVector 

; Monitor Exit and Depart(0Moni tor ) 
MXD: 

jsr Exit 

jmp EMLPl 



NoneReady : 
EIR 

EMLP: DIR 

EMLPl: LOA 1 WASACl 

LDA 0 currentState 

LDA 2 ReSchedulePending 

SNZ 2 2 

61010 ; JMPRM 

ReSchedul e : 
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Ida 


2 SDC 


sz 


2 2 * schflriul 1 nn disahlori? 

t- C lilV^IIWUUIIIIUUIOQlLllvJVII 


61010 


• JMPRM • imn FMi P 


1 Ha 
1 u a 


o 1 c duy L. 1 o u 


snz 


3 3 




NrtnciPonHv/ 
iMUilUnuaUy 


C + fl 


9 Ro^r hoHii! oPonH 1 nn 
c. lACTOullaUU lurcJIIU lliy 


1 Ha 
1 u a 


1*ini^ '\ * nDo9H\fi'ic'f'^'^ I'fnU 

0 1 iiiNfO , prveaoyu 1 5 u 1 T , iiniN 


1 H a 
1 Ua 


c CUrrQliuroD 


\ sn6 


c 0 


; jmp 


FMI P 
L I'l L r 


s t a 


0 currenLroD ; SLore new roD 


1 Ha 
1 u a 


1 1 p r o rl + Q t A + o 


1 Hn 


n Ho c -h 
U (JoS t , 0 


s "t a 


n fpAmo 9 

V 1 1 ulllw 1 C 


1 Ha 
1 u a 


O v*U 1 1 oil br on 


1 0 a 


i D 1 tsanapn on Ly , 0 


mo vz 1 


1 u , carry ^ enteriai leo 


eye 1 8 


1 7 


s t a 


u D 1 uSanapn or 1 ty , 0 , enLerrai lou ^ rMLot 


1 aa 


0 mPriority 


and 


u 1 ; isolate prionby 


1 Ha 
1 U a 


n f3f T p c + Q +■ a + q\/q ^ + n p 

u 1ST 1 r 5 Lo L d L c V ec tor 


1 oa 


t c 1 o ta te V ec tor 


mu 1 


i Mv* 1 *" p r 1 or 1 ty 1 o t a t e V ec tor+T 1 r s to X a te V ec to r 


s t a 


1 currentState 


mov 


1 2 


Ida 


1 frame, 3 


sta 


1 dest,2 


mov 


0 0 snc 


jmp 


EMLPl 


jmp 


EnterFal se 



mPriority: priority 
f irstStateVector : 0 



; Monitor Exit and Wait(0Moni tor . cvptr , timeout) 
MXW: 



sta 


1 cvptr 


sta 


2 savetimeout 


jsr 


Exit 


Ida 


0 cvptr 


jsr 


eCleanUpQueue 


Ida 


2 currentPSB 


Ida 


1 TabortPending 


Ida 


0 bitsandpriority,2 




1 0 szr ; if not abortPending 


jmp 


EMLPl 


Ida 


1 Qcvptr 


movzl 


1 1 snc ; test ww bit 


jmp 


MXWq 


sta 


1 Qcvptr ; ww set, clear it and don't stop 


jmp 


EMLPl 


Ida 


1 TwaitingOnCV 


add 


1 0 


Ida 


1 FtimeoutAllowed 


and 


1 0 ; timeoutAllowed <- FALSE 


Ida 


3 savetimeout 


sz 


3 3 


ado 


1 0 ; timeoutAllowed TRUE 


sta 


0 bitsandpriori ty »2 


Ida 


0 timer 


add 


0 3 


sta 


3 timeout, 2 ; cur rentPSB . timeout <- timer+timeout 


Ida 


0 pReadyList 


Ida 


1 cvptr 


jsr 


RequeueSub ; (pReadyList , cvptr , currentPSB) 


jmp 


EMLPl 



CleanUpQueue: 

RequeueSub : 
jmp 

RequeuePtr : 



;(q) returns (q) 
2 ReSchedulePend ing 



sta 

©RequeuePtr 
0 ; (ql,q2.p) 
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EXWreturn: 0 



cvptr: 0 

savetimeout: 0 

Twai tingOnCV: waitingOnCV 

FtimeoutAllowed: 0-timeoutAl lowed- 1 

pReadyList; readyList 

; Monitor Entry(0Moni tor) 



ME: 

jsr 
mov 

EnterTrue: 

subzl 

EnterFal se: 
sub 
Ida 
sta 
mkone 
sta 
jmp 

NOTIFY: 

jsr 
jsr 
jmp 

BCAST: 

jsr 
sta 
BCASTloop: 
Ida 
jsr 
sz 

jmp 
jmp 



Exit: 



sta 
sta 
Ida 
mov 
jmp 

Ida 
; 0 
Ida 
jsr 
Ida 
movol 
exitstore: 

movor 

sta 
jmp 



Enter 
0 0 snc 
EMLPl 

0 0 skp 



; if failed 
then reschedule 



currentState 

stkO.2 

0 

stkp,2 



EMLP 

; (cvptr) 

0C1 eanUpQueue 

WakeHead 

EMLPl 

; (cvptr) 
QCleanUpQueue 
0 cvptr 

0 cvptr 
WakeHead 
2 2 

BCASTloop 
EMLPl 



store return value 



stkp <r 1 



process notified or 0 if none 



;{@Monitor) returns carry=l iff requeue was called 

0 saveq 
3 EXWreturn 

1 @saveq 

1 2 snr ; if mqt » NIL 

exitstore ; low-order zero will go to carry 

1 pReadyList 
correct from above 

2 1 ink, 2 ; P mqtt . 1 ink 

RequeueSub; {©Monitor . queue. pReadyList .Monitor . queue. 1 ink) 
1 §saveq 

1 1 ; low-order one will go to carry 



1 1 

1 ©saveq 
©EXWreturn 



set lock to 1 = unlocked 
carry <- 1 iff requeue happened 



saveq: C 
WakeHead : 



sta 
mov 
Ida 

movzl# 

jmp 
Ida 
Ida 
Ida 
and 
sta 
Ida 
jsr 
jmp 



;(cvptr) 
3 EXWreturn 

0 3 

2 0,3 ; cvptrt 

2 2 snr ; test for 

©EXWreturn 

2 link, 2 ; cvptrtt 

1 bi tsandpr ior ity , 2 

3 FwaitingOnCV 
3 1 

1 bitsandpriority , 2 
1 pReadyList 

RequeueSub ; (cvptr , pReadyList . cvptrt ) 
©EXWreturn 



process = 0, ignore ww 
link 



FwaitingOnCV: 0-wai tingOnCV-1 
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timer: 0 
timeflag: -3 
timeconst: -3 

AdvanceTimer : 
isz 

bri 
Ida 
sta 
isz 

nop 
Ida 

loop: Ida 
Ida 
and 
seq 

Ida 
Ida 
seq 

Ida 
Ida 
and 
adc 
Ida 
Ida 
and 
sta 
sub 
Ida 
jsr 
notready : 

Ida 
sne 

bri 
Ida 
add 

jmp loop 



timef 1 ag 

0 timeconst 
0 timeflag 
timer 

2 0f irstProcess 

0 timermask 

1 bitsandpriori ty , 2 
0 1 

0 1 

notready 

1 timeout. 2 
0 timer 

0 1 

notready 

0 FtimeoutPending 

1 bi tsandpriority, 2 
0 1 

0 1 ; p . timeoutPending <- TRUE 

0 FwaitingOnCV 

1 bitsandpriority ,2 

0 1 ; p.waitingOnCV ^ FALSE 

1 bitsandpriority , 2 

0 0 

1 pReadyList 

RequeueSub; (NIL, pReadyList , p) 



returns p in AC2 



1 @lastProcess 

1 2 

1 cIPSB 

1 2 



timermask : state+timeoutAl lowed+waitingOnCV 
FtimeoutPending : 0-timeoutPending-l 
f i rstProcess : 0 
lastProcess: 0 
clPSB: IPSB 



END: 



TXV+200 



generate error if too big 



.END 



